home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / if.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  551 b   |  27 lines
  1. program IfThenElse;
  2.  
  3. var
  4.     b      : real;
  5.     reponse : real;
  6.  
  7. begin
  8.  
  9.     repeat
  10.         write('Entrer un nombre:');
  11.         readln(b);
  12.         if b<5 then
  13.             writeln(b,' est < 5')
  14.         else
  15.             if b=5 then writeln(' .....5')
  16.         else
  17.             if b=10 then
  18.                    writeln ('..... 10')
  19.         else
  20.             if b>10 then
  21.                 writeln(b,' est > 10')
  22.         else
  23.             writeln(b,' est entre 5 et 10');
  24.         write('On continue? (Non=0) :');
  25.         readln(reponse);
  26.    until reponse=0;
  27. end.